<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.12</name>
<id>-1</id>
<cardCount>4</cardCount>
<cardID>4194</cardID>
<listID>5207</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>192</height>
</cardSize>
<script>on openstackget CheckLiPath()if last char of it is "a" thendelete last char of itput true into opChkelse put false into opChkif (MtFilesInFldr(it,"T:TEXT") is not cd btn 1) or opChk thenput "ﾃｧﾆ津ｬﾂｫﾃｧﾃｻﾃ窶ｺﾃﾂｵﾃ窶ｹﾃ竏妥③" into cd fld "Messages" of cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦"wait 45 tickssend "OpenLips" to cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦"end ifend openstackon closestackif (freesize of this stack)>(size of this stack)*0.5 then domenu "Compact Stack"pass closestackend closestack------------------------------------------------------------------------------------function CheckLiPathget cd fld "Path of Lips" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ"if (it is empty) or (there is not a folder it) thenrepeatbeepanswer "Lipsﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ邃｢ﾃ･ﾂｩﾃﾂｬﾃﾂｩﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③" with "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｩwﾃｭﾃ" or "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｧﾃ湘ｪﾂｨ"if it is "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｩwﾃｭﾃ" thenget MtSelectFldr()if it is not empty thenput it into cd fld "Path of Lips" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ"return it & "a"end ifelseask file "ﾃｪVﾃ｣KLipsﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｱﾂｺﾃ⑦" with "ﾃｱﾂｺﾃｨﾃεｱﾂ｢ﾃｪ窶ｺﾃｭﾃ記ips"if it is not empty thenget it & colonput it into cd fld "Path of Lips" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ"MtCreateFldr itreturn it & "a"end ifend ifend repeatelse return itend CheckLiPath------------------------------------------------------------------------------------on opencardif not hilite of bg btn (the short name of this cd) thenlock screenrepeat with i = 1 to 4set hilite of bg btn i to falseset style of bg btn i to standardend repeatget the short name of this cdset hilite of bg btn it to trueset style of bg btn it to defaultunlock screenend ifend opencard------------------------------------------------------------------------------------on GoCard thecardif not hilite of bg btn thecard thenlock screenrepeat with i = 1 to 4set hilite of bg btn i to falseset style of bg btn i to standardend repeatset hilite of bg btn thecard to trueunlock screenvisual effect venetian blinds fast to grayvisual effect venetian blinds fastgo cd thecardend ifend GoCard------------------------------------------------------------------------------------on ShowPopput the clickloc into Loclickget "cd btn" && quote & (short name of the target) & "Pop" & quoteset width of it to 5set height of it to 5set loc of it to Loclickshow itclick at Loclickhide itend ShowPop------------------------------------------------------------------------------------on commandkeydown thekeyif thekey is "f" thenget cd fld "ﾃ･ﾃｼﾃｧﾄｱﾃ鰻ﾃ嘉｡ﾃ [ﾃ曳ﾃ雨ﾃ叡ﾃ曳" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ"if it is "ﾃ､mﾃｮFﾃ竏妥ﾃ" thenanswer "ﾃ⑶ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ･ﾃｼﾃｧﾄｱﾃ⑶" & return & "ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃﾂｫﾃﾃｸﾃﾃﾃﾂｩﾃﾃﾃ･ﾃｼﾃｧﾄｱﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Lips" or "PDSF" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit commandkeydownend ifGoCard "ﾃ･ﾃｼﾃｧﾄｱ"send "FileFind it" to cd btn "ﾃ･ﾃｼﾃｧﾄｱPop" of cd "ﾃ･ﾃｼﾃｧﾄｱ"else pass commandkeydownend commandkeydown------------------------------------------------------------------------------------on arrowkey thekeyif the optionkey is down thenif thekey is "left" then GoCard (short name of prev cd)elseif thekey is "right" then GoCard (short name of next cd)end ifelse pass arrowkeyend arrowkey</script>
